home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / MEDICAL / 2608A.ZIP / GP.ZIP / CLOSE.SRC < prev    next >
Text File  |  1990-11-03  |  384b  |  17 lines
  1. ;\|
  2. ;CLOSE.SRC     Translated from CLOSE.EDT by Roger Mathew's EDT2SRC Ver 4.11
  3. ;CLOSE3   02:23:24 PM   6/ 7/90   |
  4.     define(DUMMY|A|10||)
  5.     define(COUNTER|N|2||)
  6.     DUMMY = ("REFER")
  7.     inifle(DUMMY)
  8.     dos("flag f:\tas\tasfiles\refer.m srw")
  9.     open(REFER||0|)
  10.     for(COUNTER|1|15|1)
  11.         {
  12.         REF_COD = (COUNTER)
  13.         save(REFER|N|Y)
  14.         }
  15.     run("recmenu")
  16.  
  17.